home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #3 / utv1n3s2.d64 / magazine indexer (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  11KB  |  450 lines
  1. 5 if a=0 then gosub 12000
  2. 6 if a=0 then a=1:ld$="lptr rtn":goto 12400
  3. 10 print"[145]"
  4. 30 nc=0:n=0:na=6:dimar$(na)
  5. 40 dim af$(50),a$(na,400)
  6. 50 sp$="":fori=1to20:sp$=sp$+" ":next
  7. 60 cl$="":fori=1to15:cl$=cl$+"[157]":next
  8. 80 fori=1tona:readar$(i):next
  9. 90 data "[205]agazine: "," [193]rticle: ","  [193]uthor: ","   [201]ssue: ","    [208]age: "
  10. 100 data "   [201]ndex: "
  11. 105 fori=49152to49322:reada:pokei,a:next
  12. 115 forii=49362to49398:readaa:pokeii,aa:next:rem**install reader
  13. 120 print chr$(14):poke646,1
  14. 125 gosub 2750
  15. 130 print"[147][201]ndex [205]enu:                             "
  16. 140 printtab(10)"[1] [204]oad [201]ndex [198]ile
  17. 150 [153][163]10)"[2] (NULL)ave right$ndex ascile
  18. 160 printtab(10)"[3] [193]dd [201]ndex [195]atagory
  19. 170 [153][163]10)"[4] lenhange right$ndex (NULL)ames
  20. 180 printtab(10)"[5] [196]isplay [201]ndex [206]ames
  21. 190 [153][163]10)"[6] (NULL)rint right$ndex (NULL)ames
  22. 200 printtab(10)"[7] [199]o to [205]ain [205]enu
  23. 205 [153][163]10)"[8] (NULL)eturn to (NULL)p(NULL)ime"
  24. 207 [153][163]10)"[9] right$nstructions"
  25. 210 [153]"lenhoice: ";
  26. 220 mx[178]1:[141] 12500
  27. 230 k[178][197](te$):[139] k[179]1 [176] k[177]9 [167] 130
  28. 236 [153]""
  29. 260 [145] k [141] 290,400,530,640,780,880,980,12100,10000
  30. 270 [137]130
  31. 280 :
  32. 290 [153]"load(NULL)oad right$ndex ascile:                        "
  33. 300 [141]2790:[139]f1[167][142]
  34. 310 [159]15,8,15,"i0"
  35. 320 [159]2,8,2,"0:."[170]f$[170]",s,r"
  36. 330 [141]2870:[139]f[167][142]
  37. 340 [132]2,nc
  38. 350 [129]i[178]1[164]nc
  39. 360 [132]2,af$(i)
  40. 370 [130]
  41. 380 [160]2:[160]15:[141]2750:[142]
  42. 390 :
  43. 400 [153]"load(NULL)ave right$ndex ascile:                        "
  44. 410 [139] nc[178]0 [167] [141] 12200:[142]
  45. 420 [141]2790:[139]f1[167][142]
  46. 430 [159]15,8,15,"i0"
  47. 440 [152]15,"s0:."[170]f$
  48. 450 [159]2,8,2,"0:."[170]f$[170]",s,w"
  49. 460 [141]2870:[139]f[167][142]
  50. 470 [152]2,nc
  51. 480 [129]i[178]1[164]nc
  52. 490 [152]2,af$(i)
  53. 500 [130]
  54. 510 [160]2:[160]15:[141]2750:[142]
  55. 520 :
  56. 530 nc[178]nc[170]1
  57. 540 [153]"loadatndd right$ndex lenategory:                     "
  58. 550 [153]"      right$ndex #: "nc
  59. 560 [153]"lenategory (NULL)ame: <_> ";
  60. 570 mx[178]20:[141] 12500
  61. 579 af$(nc)[178]te$
  62. 580 [139] te$[178]"_" [176] te$[178]"" [167] nc[178]nc[171]1:[142]
  63. 590 [153]:[153]"      lenorrect: <(NULL)>";
  64. 600 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n" [175] k$[179][177][199](13) [167]600
  65. 610 [139]k$[178]"n"[167]540
  66. 620 [142]
  67. 630 :
  68. 640 [153]"loadlenhange right$ndex (NULL)ame:                      "
  69. 650 [139]nc[178]0 [167] [141] 12200:[142]
  70. 660 [153]"      right$ndex #: <_> ";
  71. 670 mx[178]3:[141]12500
  72. 685 [139] te$[178]"_" [176] te$[178]"" [167] [142]
  73. 690 k[178][197](te$):[139]k[179]1[176]k[177]nc[167]640
  74. 700 [153]:[153]" (NULL)ld lenategory: "af$(k)
  75. 710 [153]" (NULL)ew lenategory: ";
  76. 720 mx[178]20:[141] 12500
  77. 730 [153]:[153]"      lenorrect: <(NULL)>";
  78. 740 [161] k$:[139] k$[178]"" [167] 740
  79. 750 [139]k$[178]"n"[167]640
  80. 755 [139] k$[179][177]"y" [175] k$[179][177][199](13) [167]740
  81. 760 af$(k)[178]te$:[142]
  82. 770 :
  83. 780 [153]"loadstr$isplay right$ndex (NULL)ames:                    "
  84. 790 [139] nc[178]0 [167] [141] 12200:[142]
  85. 800 j[178]0
  86. 810 [129]i[178]1[164]nc
  87. 820 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
  88. 830 [153][163]5)i$;
  89. 840 [153][163]10)af$(i)
  90. 850 j[178]j[170]1:[139]j[178]15[167][141]2750:[153]"load":j[178]0
  91. 860 [130]:[141]2750:[142]
  92. 870 :
  93. 880 [153]"load(NULL)rint right$ndex (NULL)ames:                      "
  94. 890 [139] nc[178]0 [167] [141] 12200:[142]
  95. 900 [141]3480
  96. 910 [151] 780,4:[143] channel #
  97. 912 [151] 782,7:[143] secondary address
  98. 914 [158] 828: [143] open file
  99. 916 [139] [194](783) [175] 1 [167] [160] 4:[141] 12300:[137] 880
  100. 918 [157] 4
  101. 920 [129]i[178]1[164]nc
  102. 930 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
  103. 940 [153][166]5)i$;"  ";af$(i)
  104. 950 [130]
  105. 960 [152]4:[160]4:[142]
  106. 970 :
  107. 980 [139]nc[178]0 [167] [141] 12200:[137] 130
  108. 985 [153]"load(NULL)ain (NULL)enu:                              "
  109. 990 [153][163]10)"[1] (NULL)oad ascile
  110. 1000 printtab(10)"[2] [211]ave [198]ile
  111. 1010 [153][163]10)"[3] atndd (NULL)ecord
  112. 1020 printtab(10)"[4] [195]hange [210]ecord
  113. 1030 [153][163]10)"[5] str$elete (NULL)ecord
  114. 1040 printtab(10)"[6] [196]isplay [198]ile
  115. 1050 [153][163]10)"[7] (NULL)rint ascile
  116. 1060 printtab(10)"[8] # [210]ecords
  117. 1070 [153][163]10)"[9] str$isk str$irectory
  118. 1080 printtab(9)"[10] [199]o to [201]ndex [205]enu
  119. 1090 [153][163]9)"[11] chr$o to (NULL)p(NULL)ime"
  120. 1100 [153]"lenhoice: ";
  121. 1110 mx[178]2:[141] 12500
  122. 1120 k[178][197](te$):[139]k[179]1 [176] k[177]11[167] 985
  123. 1130 [139]k[178]11[167][158] (8[172]4096)[170]4
  124. 1140 [139]k[178]10[167] [142]
  125. 1150 [145]k[141]1180,1290,1420,1670,1800,1960,2230,2480,2550
  126. 1160 [137]980
  127. 1170 :
  128. 1180 [153]"load(NULL)oad ascile:                              "
  129. 1190 [141]2790:[139]f1[167][142]
  130. 1200 [159]15,8,15,"i0"
  131. 1210 [159]2,8,2,"0:"[170]f$[170]".tf,s,r"
  132. 1220 [141]2870:[139]f[167][142]
  133. 1230 [132]2,n
  134. 1240 [129]i[178]1[164]n:[129]j[178]1[164]na
  135. 1250 [132]2,a$(j,i)
  136. 1260 [130]:[130]
  137. 1270 [160]2:[160]15:[141]2750:[142]
  138. 1280 :
  139. 1290 [153]"load(NULL)ave ascile:                              "
  140. 1300 [139] n[178]0 [167] [141] 12200:[142]
  141. 1310 [141]2790:[139]f1[167][142]
  142. 1320 [159]15,8,15,"i0"
  143. 1330 [152]15,"s0:"[170]f$[170]".tf"
  144. 1340 [159]2,8,2,"0:"[170]f$[170]".tf,s,w"
  145. 1350 [141]2870:[139]f[167][142]
  146. 1360 [152]2,n
  147. 1370 [129]i[178]1[164]n:[129]j[178]1[164]na
  148. 1380 [152]2,a$(j,i)
  149. 1390 [130]:[130]
  150. 1400 [160]2:[160]15:[141]2750:[142]
  151. 1410 :
  152. 1420 n[178]n[170]1:tp[178]n
  153. 1430 p$[178]"loadatndd (NULL)ecord:                             ":[153]p$
  154. 1440 [153]"str$isplay right$ndex lenodes: <_> ";
  155. 1450 mx[178]1:[141] 12500
  156. 1460 [139] te$[178]"y"[167][141]780
  157. 1470 [139] te$[178]"_" [176] te$[178]"" [167] n[178]n[171]1:[142]
  158. 1480 [153]p$
  159. 1490 [153]:[153]ar$(1);:mx[178]20:[141] 12500:a$(1,tp)[178]te$
  160. 1495 m$[178]a$(1,tp):lm[178][195](m$)
  161. 1500 m$[178]a$(1,tp):lm[178][195](m$)
  162. 1510 [153]:[153]ar$(2);:mx[178]20:[141] 12500:a$(2,tp)[178]te$
  163. 1520 [153]:[153]ar$(3);:mx[178]20:[141] 12500:a$(3,tp)[178]te$
  164. 1530 [153]:[153]ar$(4);:mx[178]20:[141] 12500:a$(4,tp)[178]te$
  165. 1550 [153]:[153]ar$(5);:mx[178]20:[141] 12500:a$(5,tp)[178]te$
  166. 1560 [153]:[153]ar$(6);:mx[178]20:[141] 12500
  167. 1570 i[178][197](te$):[139]i[179]1[176]i[177]nc[167][153]"on                              onon":[137]1560
  168. 1580 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
  169. 1590 a$(6,tp)[178]i$:[153]af$(i)
  170. 1600 [153]:[153]" lenorrect: <(NULL)>"
  171. 1605 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1605
  172. 1610 [139] te$[179][177]"y" [175] te$[179][177][199](13)[167][153]:[137]1440
  173. 1615 [139]f3[167][142]
  174. 1620 [153]:[153]"    (NULL)ore: <(NULL)> ";
  175. 1625 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1625
  176. 1640 [139] te$[178]"y" [176] te$[178][199](13) [167]1420
  177. 1650 [142]
  178. 1660 :
  179. 1670 [153]"loadlenhange (NULL)ecord:                          "
  180. 1680 [139] n[178]0 [167] [141] 12200:[142]
  181. 1690 [153]"lenhange (NULL)ecord #: <_> ";
  182. 1700 mx[178]3:[141] 12500
  183. 1710 [139] te$[178]"_" [176] te$[178]"" [167] [142]
  184. 1720 r[178][197](te$):[139]r[179]1[176]r[177]n[167] 1670
  185. 1730 [153]:i[178]r:[141]3050
  186. 1740 [153]:[153]"right$s (NULL)his the (NULL)ecord: <(NULL)> ";
  187. 1750 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1750
  188. 1760 [139] te$[179][177]"y" [175] te$[179][177]"" [167]1670
  189. 1770 [153]:tp[178]r:f3[178]1:[141]1440:f3[178]0
  190. 1771 [139] te$[178]"_" [176] te$[178]"" [167]n[178]n[170]1:[153]:[153]"(NULL)o lenhange (NULL)ade":[141]2750:[142]
  191. 1780 [153]:[153]"(NULL)ecord lenhanged":[141]2750:[142]
  192. 1790 :
  193. 1800 [153]"loadstr$elete (NULL)ecord:                          "
  194. 1810 [139] n[178]0 [167] [141] 12200:[142]
  195. 1820 [153]"str$elete (NULL)ecord #: <_> ";
  196. 1830 mx[178]3:[141] 12500
  197. 1840 [139] te$[178]"_" [176] te$[178]"" [167][142]
  198. 1850 r[178][197](te$):[139]r[179]1[176]r[177]n[167][153]:[137]1810
  199. 1860 [153]:i[178]r:[141]3050
  200. 1870 [153]:[153]"right$s (NULL)his the (NULL)ecord: <(NULL)> ";
  201. 1880 mx[178]1:[141] 12500
  202. 1890 [139] te$[179][177]"y" [175] te$[179][177]"" [167]1800
  203. 1900 [129]i[178]r[164]n:[129]j[178]1[164]na
  204. 1910 a$(j,i)[178]a$(j,i[170]1)
  205. 1920 [130]:[130]:n[178]n[171]1
  206. 19